* Переименование файла (создание копии файла с другим имененм, затем удаление исходного файла).

если (файл существует $результат "[$ТекущийКаталог]1.txt" )
  файл переименовать "[$ТекущийКаталог]1.txt" "[$ТекущийКаталог]2.txt"
  файл удалить "[$ТекущийКаталог]1.txt"
  показать сообщение "Файл переименован."
иначе
  показать сообщение "Файл не найден."
конец